home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / t3_1 / risc_src.lha / risc_sources / xlib / screen.t < prev    next >
Text File  |  1990-06-01  |  3KB  |  76 lines
  1. (herald screen (env tsys (xlib interface)))
  2. (DEFINE (MAKE-SCREEN) (CONS 'SCREENP (MAKE-BYTEV 80)))
  3. (DEFINE (SCREEN-EXT_DATA X)
  4.         ((LAMBDA (X Y) (CONS 'XEXTDATAP (MREF-POINTER X Y)))
  5.          (CHK-SCREENP X)
  6.          0))
  7. (DEFINE (SCREEN-EXT_DATA! X Y)
  8.         ((LAMBDA (X Y Z) (SET-MREF-POINTER! X Y (CHK-XEXTDATAP Z)))
  9.          (CHK-SCREENP X)
  10.          0
  11.          Y))
  12. (DEFINE (SCREEN-DISPLAY X)
  13.         ((LAMBDA (X Y) (CONS 'DISPLAYP (MREF-POINTER X Y)))
  14.          (CHK-SCREENP X)
  15.          4))
  16. (DEFINE (SCREEN-DISPLAY! X Y)
  17.         ((LAMBDA (X Y Z) (SET-MREF-POINTER! X Y (CHK-DISPLAYP Z)))
  18.          (CHK-SCREENP X)
  19.          4
  20.          Y))
  21. (DEFINE (SCREEN-ROOT X) (MREF-INTEGER (CHK-SCREENP X) 8))
  22. (DEFINE (SCREEN-ROOT! X Y) (SET-MREF-INTEGER! (CHK-SCREENP X) 8 Y))
  23. (DEFINE (SCREEN-WIDTH X) (MREF-INTEGER (CHK-SCREENP X) 12))
  24. (DEFINE (SCREEN-WIDTH! X Y) (SET-MREF-INTEGER! (CHK-SCREENP X) 12 Y))
  25. (DEFINE (SCREEN-HEIGHT X) (MREF-INTEGER (CHK-SCREENP X) 16))
  26. (DEFINE (SCREEN-HEIGHT! X Y) (SET-MREF-INTEGER! (CHK-SCREENP X) 16 Y))
  27. (DEFINE (SCREEN-MWIDTH X) (MREF-INTEGER (CHK-SCREENP X) 20))
  28. (DEFINE (SCREEN-MWIDTH! X Y) (SET-MREF-INTEGER! (CHK-SCREENP X) 20 Y))
  29. (DEFINE (SCREEN-MHEIGHT X) (MREF-INTEGER (CHK-SCREENP X) 24))
  30. (DEFINE (SCREEN-MHEIGHT! X Y) (SET-MREF-INTEGER! (CHK-SCREENP X) 24 Y))
  31. (DEFINE (SCREEN-NDEPTHS X) (MREF-INTEGER (CHK-SCREENP X) 28))
  32. (DEFINE (SCREEN-NDEPTHS! X Y) (SET-MREF-INTEGER! (CHK-SCREENP X) 28 Y))
  33. (DEFINE (SCREEN-DEPTHS X)
  34.         ((LAMBDA (X Y) (CONS 'DEPTHP (MREF-POINTER X Y)))
  35.          (CHK-SCREENP X)
  36.          32))
  37. (DEFINE (SCREEN-DEPTHS! X Y)
  38.         ((LAMBDA (X Y Z) (SET-MREF-POINTER! X Y (CHK-DEPTHP Z)))
  39.          (CHK-SCREENP X)
  40.          32
  41.          Y))
  42. (DEFINE (SCREEN-ROOT_DEPTH X) (MREF-INTEGER (CHK-SCREENP X) 36))
  43. (DEFINE (SCREEN-ROOT_DEPTH! X Y) (SET-MREF-INTEGER! (CHK-SCREENP X) 36 Y))
  44. (DEFINE (SCREEN-ROOT_VISUAL X)
  45.         ((LAMBDA (X Y) (CONS 'VISUALP (MREF-POINTER X Y)))
  46.          (CHK-SCREENP X)
  47.          40))
  48. (DEFINE (SCREEN-ROOT_VISUAL! X Y)
  49.         ((LAMBDA (X Y Z) (SET-MREF-POINTER! X Y (CHK-VISUALP Z)))
  50.          (CHK-SCREENP X)
  51.          40
  52.          Y))
  53. (DEFINE (SCREEN-DEFAULT_GC X)
  54.         ((LAMBDA (X Y) (CONS 'GC (MREF-POINTER X Y))) (CHK-SCREENP X) 44))
  55. (DEFINE (SCREEN-DEFAULT_GC! X Y)
  56.         ((LAMBDA (X Y Z) (SET-MREF-POINTER! X Y (CHK-GC Z)))
  57.          (CHK-SCREENP X)
  58.          44
  59.          Y))
  60. (DEFINE (SCREEN-CMAP X) (MREF-INTEGER (CHK-SCREENP X) 48))
  61. (DEFINE (SCREEN-CMAP! X Y) (SET-MREF-INTEGER! (CHK-SCREENP X) 48 Y))
  62. (DEFINE (SCREEN-WHITE_PIXEL X) (MREF-INTEGER (CHK-SCREENP X) 52))
  63. (DEFINE (SCREEN-WHITE_PIXEL! X Y) (SET-MREF-INTEGER! (CHK-SCREENP X) 52 Y))
  64. (DEFINE (SCREEN-BLACK_PIXEL X) (MREF-INTEGER (CHK-SCREENP X) 56))
  65. (DEFINE (SCREEN-BLACK_PIXEL! X Y) (SET-MREF-INTEGER! (CHK-SCREENP X) 56 Y))
  66. (DEFINE (SCREEN-MAX_MAPS X) (MREF-INTEGER (CHK-SCREENP X) 60))
  67. (DEFINE (SCREEN-MAX_MAPS! X Y) (SET-MREF-INTEGER! (CHK-SCREENP X) 60 Y))
  68. (DEFINE (SCREEN-MIN_MAPS X) (MREF-INTEGER (CHK-SCREENP X) 64))
  69. (DEFINE (SCREEN-MIN_MAPS! X Y) (SET-MREF-INTEGER! (CHK-SCREENP X) 64 Y))
  70. (DEFINE (SCREEN-BACKING_STORE X) (MREF-INTEGER (CHK-SCREENP X) 68))
  71. (DEFINE (SCREEN-BACKING_STORE! X Y) (SET-MREF-INTEGER! (CHK-SCREENP X) 68 Y))
  72. (DEFINE (SCREEN-SAVE_UNDERS X) (MREF-INTEGER (CHK-SCREENP X) 72))
  73. (DEFINE (SCREEN-SAVE_UNDERS! X Y) (SET-MREF-INTEGER! (CHK-SCREENP X) 72 Y))
  74. (DEFINE (SCREEN-ROOT_INPUT_MASK X) (MREF-INTEGER (CHK-SCREENP X) 76))
  75. (DEFINE (SCREEN-ROOT_INPUT_MASK! X Y) (SET-MREF-INTEGER! (CHK-SCREENP X) 76 Y))
  76.